home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / Goodies / SYSTEM~1 / SYSCOL~1.CLS < prev    next >
Text File  |  1997-06-09  |  741b  |  30 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "clsSysColors"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. Option Explicit
  11. Private MyForm As New SysColorPal
  12.  
  13. Public Sub Popup(Optional ByVal Left As Single = -1#, Optional ByVal Top As Single = -1#)
  14.     If Left <> -1# Then MyForm.Left = Left
  15.     If Top <> -1# Then MyForm.Top = Top
  16.     MyForm.Show vbModal
  17. End Sub
  18.  
  19. Public Property Get Color() As Variant
  20.  Color = MyForm.SelectedColor
  21. End Property
  22.  
  23. Public Property Get ColorName() As Variant
  24.  ColorName = MyForm.SelectedColorName
  25. End Property
  26.  
  27. Private Sub Class_Terminate()
  28.  Set MyForm = Nothing
  29. End Sub
  30.